home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_9_load 1bit pattern.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  353 b   |  8 lines

  1. global gPatternListBoxHeight
  2.  
  3. on prepareFrame me
  4.   gPatternListBoxHeight = (member("pattern list").lineCount * member("pattern list").lineHeight) - (9 * member("pattern list").lineHeight)
  5.   put member("pattern list").text.line[1] into field "current pattern"
  6.   hilite char 1 to member("pattern list").text.line[1].length + 1 of field "pattern list"
  7. end
  8.